home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmiSoft / Misc / emu / Wzonka-Lad.lha / Wzonka-Lad / src / keyfile.s < prev    next >
Text File  |  2004-01-02  |  2KB  |  133 lines
  1. ****************** This file is obsolete now ******************
  2.  
  3.  
  4.  
  5.  
  6.  
  7. ;make the keyfiles bigger than 300 bytes or else...
  8.  
  9. key_name_encode    =0
  10. key_sounds_init    =4
  11. key_serial_area =8
  12.  
  13.         lea    key_file_name(pc),a3
  14.         moveq.l    #key_file_name_e-key_file_name-1,d0
  15. key_file_decode:move.b    (a3),d1
  16.         rol.b    d0,d1
  17.         move.b    d1,(a3)+
  18.         dbra    d0,key_file_decode
  19.  
  20.         move.l    #key_file_end-key_file,d0
  21.         rts
  22.  
  23. key_file:    dc.l    key_file_enc-key_file
  24.         dc.l    key_file_snd-key_file
  25.         dc.l    key_file_ser-key_file
  26.  
  27. key_file_enc:    move.w    #50,(a2)            ;x.
  28.         lea    key_file_name(pc),a3
  29.         moveq.l    #key_file_name_e-key_file_name-1,d0
  30. key_file_encode:move.b    (a3)+,d1
  31.         ror.b    d0,d1
  32.         move.b    d1,(a1)+
  33.         dbra    d0,key_file_encode
  34.         clr.b    (a1)
  35.         rts
  36.  
  37. key_file_name:    dc.b    "CREEP PUNK",0
  38. key_file_name_e:even
  39.  
  40.         cnop    0,4
  41. key_file_snd:    tst.b    (a1)+
  42.         bne.w    key_file_no_snd
  43.  
  44.         add.l    #$10*4,a0
  45.         moveq.l    #0,d1
  46.         moveq.l    #0,d2
  47.  
  48.         tst.b    (a1)+
  49.         bne.s    no_I
  50.  
  51.         move.l    (a2),(a0)
  52.         move.l    4(a2),4(a0)
  53.         move.l    8(a2),8(a0)
  54.         move.l    12(a2),12(a0)
  55.         move.l    16(a2),16(a0)
  56.         addq.b    #1,d1
  57.  
  58. no_I:        add.l    #20+4,a0
  59.         add.l    #20,a2
  60.         tst.b    (a1)+
  61.         bne.s    no_II
  62.  
  63.         move.l    (a2),(a0)
  64.         move.l    4(a2),4(a0)
  65.         move.l    8(a2),8(a0)
  66.         move.l    12(a2),12(a0)
  67.         addq.b    #1,d1
  68.  
  69. no_II:        add.l    #16,a0
  70.         add.l    #16,a2
  71.         tst.b    (a1)+
  72.         bne.s    no_III
  73.  
  74.         move.l    (a2),(a0)
  75.         move.l    4(a2),4(a0)
  76.         move.l    8(a2),8(a0)
  77.         move.l    12(a2),12(a0)
  78.         move.l    16(a2),16(a0)
  79.         addq.b    #1,d1
  80.         move.b    #1,d2
  81.  
  82. no_III:        add.l    #20+4,a0
  83.         add.l    #20,a2
  84.         tst.b    (a1)
  85.         bne.s    no_IV
  86.  
  87.         move.l    (a2),(a0)
  88.         move.l    4(a2),4(a0)
  89.         move.l    8(a2),8(a0)
  90.         move.l    12(a2),12(a0)
  91.         addq.b    #1,d1
  92.  
  93. no_IV:        add.l    #16,a0
  94.         add.l    #16,a2
  95.         tst.b    d1
  96.         beq.s    no_V
  97.  
  98.         move.l    (a2),(a0)
  99.         move.l    4(a2),4(a0)
  100.         move.l    8(a2),8(a0)
  101.  
  102. no_V:        add.l    #12,a0
  103.         add.l    #12,a2
  104.         tst.b    d2
  105.         beq.s    key_file_no_snd
  106.  
  107.         add.l    #9*4,a0
  108.         move.l    (a2),d0
  109.         move.l    d0,(a0)+
  110.         move.l    d0,(a0)+
  111.         move.l    d0,(a0)+
  112.         move.l    d0,(a0)+
  113.         move.l    d0,(a0)+
  114.         move.l    d0,(a0)+
  115.         move.l    d0,(a0)+
  116.         move.l    d0,(a0)+
  117.         move.l    d0,(a0)+
  118.         move.l    d0,(a0)+
  119.         move.l    d0,(a0)+
  120.         move.l    d0,(a0)+
  121.         move.l    d0,(a0)+
  122.         move.l    d0,(a0)+
  123.         move.l    d0,(a0)+
  124.         move.l    d0,(a0)
  125. key_file_no_snd:rts
  126.  
  127. key_file_ser:    moveq.l    #1,d0
  128.         rts
  129.  
  130. key_file_end:    even
  131.  
  132.         END
  133.